home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
A-COMAL Series
/
(k)aan.d64
/
proc.print1char
< prev
next >
Wrap
Text File
|
2007-02-28
|
195b
|
7 lines
0010 //
0020 ╨╥╧├ PRINT'ONE'CHAR
0030 P:=LINE$(PT'CHR#)(PT'LN#) ╔╬ ASCII'STR$
0040 ╔╞ P=0 ╘╚┼╬ P:=╧╥─(LINE$(PT'CHR#)(PT'LN#))-31
0050 ╨╥╔╬╘ ╞╔╠┼ 3: TABLE$(P-1)
0060 ┼╬─╨╥╧├ PRINT'ONE'CHAR